home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / biz / patch / pgs3itu2.lha / 3.0iTuneUp2 / Install-TuneUp2 < prev    next >
Text File  |  1996-04-03  |  1KB  |  48 lines
  1. ;PAGESTREAM 3.0i TUNEUP #2 PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1996 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;QUIT PROGRAMS
  5. (message "\n\nIf PageStream3, BME2 or PageLiner are running now, quit them before continuing.")
  6. (run "avail flush" (safe))
  7.  
  8. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  9. (run "CD PageStream3:" (safe))
  10. (run "CD SoftLogik:" (safe))
  11. (run "assign fonts: softlogik:fonts add" (safe))
  12.  
  13. ;GET DESTINATION
  14. (set PGSdest (getassign "PageStream3" "a"))
  15. (set SLdest (getassign "SoftLogik" "a"))
  16. (if (OR (= PGSdest "") (= SLdest ""))
  17.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3.0i before applying this update patch.")
  18. )
  19. (set @default-dest PGSdest)
  20.  
  21. ;CHECK IF BME EXISTS
  22. (if (<> (exists "PageStream3:BME") 1)
  23.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.0i before applying this update patch.")
  24. )
  25.  
  26. ;UPDATE BME2
  27. (if (exists "PageStream3:BME")
  28.     (
  29.         (working "Patching BME to 2.0f...")
  30.         (run "spatch >NIL: <NIL: -oPageStream3:BME2.0f -pBME.pch PageStream3:BME")
  31.         (if (exists "PageStream3:BME2.0f")
  32.             (
  33.                 (delete "PageStream3:BME")
  34.                 (rename "PageStream3:BME2.0f" "PageStream3:BME")
  35.             )
  36.             (message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
  37.         )
  38.         (delete "ram:BME.pch" (safe))
  39.     )
  40. )
  41.  
  42. ;REMOVE THE LHEX PROGRAM
  43. (delete "spatch" (safe))
  44. (delete "Install-TuneUp2.info" (safe))
  45.  
  46. ;DONE
  47. (exit "BME 2.0f installed!")
  48.